home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slabad.z / slabad
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAABBBBAAAADDDD((((3333FFFF))))                                                          SSSSLLLLAAAABBBBAAAADDDD((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLABAD - take as input the values computed by SLAMCH for underflow and
  10.      overflow, and returns the square root of each of these values if the log
  11.      of LARGE is sufficiently large
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  14.      SUBROUTINE SLABAD( SMALL, LARGE )
  15.  
  16.          REAL           LARGE, SMALL
  17.  
  18. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  19.      SLABAD takes as input the values computed by SLAMCH for underflow and
  20.      overflow, and returns the square root of each of these values if the log
  21.      of LARGE is sufficiently large.  This subroutine is intended to identify
  22.      machines with a large exponent range, such as the Crays, and redefine the
  23.      underflow and overflow limits to be the square roots of the values
  24.      computed by SLAMCH.  This subroutine is needed because SLAMCH does not
  25.      compensate for poor arithmetic in the upper half of the exponent range,
  26.      as is found on a Cray.
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      SMALL   (input/output) REAL
  31.              On entry, the underflow threshold as computed by SLAMCH.  On
  32.              exit, if LOG10(LARGE) is sufficiently large, the square root of
  33.              SMALL, otherwise unchanged.
  34.  
  35.      LARGE   (input/output) REAL
  36.              On entry, the overflow threshold as computed by SLAMCH.  On exit,
  37.              if LOG10(LARGE) is sufficiently large, the square root of LARGE,
  38.              otherwise unchanged.
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.